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XYPLOT - A VERSATILE PLOT ROUTINE FOR THE D/A CONVERTER 


DECUS Program Library Write-up 


DEC US No. 8-263 


ABSTRACT 


XYPLOT is a one page subroutine which scales, offsets, and simultaneously plots two integer arrays 
from any two data fie ds, using the D/A converter and a conventional x-y recorder. Incorporation 
of a programmed pen lift makes available to those users having the necessary additional hardware a 
point plot capability, selectable by properly setting bit zero of the variable PENFLG in the callinq 
sequence. Loading of the additional 41 (octal) memory location program GENX, and setting of bit 
one of PENFLG allows a y-data array to be plotted versus locally generated, equispaced x-data, 
with the spacing interval user specified. 

The program was primarily designed to conveniently handle the output of real experimental data 
with the minimum of prior manipulation consistent with generality. Scaling of the data, for example 
from internal code integers to meaningful units is accomplished by XYPLOT just prior to the actual 
plot step, a procedure which obviates an intermediate, storage consuming, array scaling step. 
Flexibility of plot size, on the other hand, is provided by passing offset and axis scale values via 
the subroutine argument list. Thus, these values may be user supplied, or may be computed by the 
calling program |ust prior to the call of XYPLOT. 

Minimum Hardware Required: PDP-8 with AA-01A D/A Converter (Mod AH03) 

Other Programs or Subroutines Needed: Floating Point Package III (DEC-08-YQ3A-PB) 

Subroutines FETCH, FIX, and FLOAT (supplied). ' 

Storage Requirement: 1 page, plus 41 (octal) locations if x-axis data is to be generated locally 
by the subroutine at plot time. 1 

Execution Time: Limited by the number of wait loops used. Adequate delay is provided for the 
x-y recorder to settle between points. 







♦XYPLOT 

/SUBROUTINE XYPLOT 
/ 

/CALLING SEQUENCE: 


100 

101 

102 

103 

104 

105 

106 

10 '. 

1 10 
111 
1 12 

113 

114 


XYPLOT 

OFFSET (XOFF) 

, OFFSET CYOFF) 

XAXIS UNITS/IN (XPLTSC) 

YAXIS UNITS/IN (YPLTSC) 
INTEGER>UNITS FACTOR (XFACTR) 
INTEGER>UNITS FACTOR CYFACTR) 
BIT ZERO SET=PLOT POINTS 
BIT ONE SET=GENERATE X-DATA 
••ADDRESS OF NO DATA POINTS 
"ADDRESS OF DATA FIELD FOR 
“ XDATA* OR 

field for 

YDATA 


EFFECTIVE JMS 
"ADDRESS OF X 
••ADDRESS 
••ADDRESS 
••ADDRESS 
••ADDRESS 
••ADDRESS 
"FLAG: 


OF 

OF 

OF 

OF 

OF 


"BASE ADDRESS OF 
"ADDRESS OF DATA 
"BASE ADDRESS OF 


XDATA 

POINT 

YDATA 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

; THE subroutine scales data to .JBi «d size and 

/di rvrc; riTHER POINT BY POINT OR WITH THE PEN 
/CONTINUOUSLY DOWN. THE PEN LIFTS AFTER THE PLOT 
/IS COMPLETE AND RETURNS TO ITS ZERO POINT. 

/REQUIRED ANCILLARY PROGRAMS: 

/ FLOATING POINT PACKAGE 

/ FIX 

/ FLOAT 

/ FETCH 

/ 

/PAGE ZERO LOCATIONS: 

/ 

/ 


SPACING 


AUTOINDEX 12*13 
SCALING ALGORITHM: 

INTEGER TO DAC= CXDATA*XFACTR+XOFF>/XPLTSC*DACSCL 

DACSCL = VOLTS OUT/ <INTEGER IN * RECORDER SCL CV/IN 


/THE 
/ 

/ 

/ 

/ 

/THE DATA IS ASSUMED TO BE INTEGER* THE SCALING 
/CONSTANTS 1 FLOAT ING• IF LOCAL GENERATION OF X DATA 
/IS DESIRED* LOAD GENX* SET BIT ONE OF PENFLG* AND 
/NOTE THAT XDTABS (IN THE ARGUMENT LIST) NOW 
/MUST CONTAIN THE ADDRESS (IN THE SAME DF AS THE 
/IF) OF THE FLOATING MODE POINT SPACING. 

/PNLIFT IS A CONSTANT WHICH MAY BE PREADJUSTED TO 
/PROVIDE PROPER VOLTAGE FOR DRIVING A PEN LIFT 

/RELAY. 

/ 
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0200 

0000 

XYPLOT * 0 

0201 

4465 

JMS I FETCHP 

0202 

0014 

14 

0203 

0000 

XOFF* 0 

0204 

0000 

YOFF* 0 

0205 

0000 

XPLTSC* 0 

0206 

0000 

YPLTSC* 0 

020 7 

0000 

XFACTR* 0 

0210 

0000 

YFACTR* 0 

021 1 

0000 

PENFLG* 0 

0212 

0000 

POINTS* 0 

0213 

0000 

DFXDTA* 0 

0214 

0000 

XDTABS* 0 

0215 

0000 

DFYDTA* 0 

0216 

0000 

YDTABS * 0 

0217 

121 1 

TAD PENFLG 

0220 

0377 

AND (2000 

0221 

7640 

SZA CLA 

0222 

5226 

JMP OMIT 

0223 

1613 

TAD I DFXDTA 

0224 

1360 

TAD K6201 

0225 

3253 

DCA DFX 

0226 

1615 

OMIT* TAD I DFYDTA 

0227 

1360 

TAD K6201 

0230 

3267 

DCA GETY 

0231 

6214 

RDF 

0232 

1360 

TAD K6201 

0233 

3255 

DCA RSTRE 

0234 

1255 

TAD RSTRE 

023 5 

3271 

DCA REST 

0236 

1612 

TAD I POINTS 

0237 

7041 

CIA 

0240 

3354 

DCA CNTR 

0241 

7240 

CLA CMA 

0242 

1614 

TAD XDTABS 

0243 

3012 

DCA 12 

0244 

7240 

CLA CMA 

0245 

1616 

TAD l YDTABS 

0246 

3013 

DCA 13 

0247 

121 1 

RPEAT* TAD PENFLG 

0250 

0377 

AND (2000 

0251 

7640 

SZA CLA 

0252 

5765 

JMP I GENXP 

0253 

7402 

DFX* 7402 

0254 

1412 

TAD I 12 

0255 

7402 

RSTRE* 7402 

0256 

4463 

FLOAT 

0257 

4407 

JMS I 7 

0260 

3607 

FMPY I XFACTR 

0261 

1603 

FAOD I XOFF 

0262 

4605 

FDIV I XPLTSC 


/GEN XDATA ? 

/YES. 

/NO. SET UP X POINTER 


/GENERATE XDATA? 
/NO. FETCH XPOINT 
/ENTER FLOATING INT 


3 




0263 

4355 


FDIV DACSCL 


0264 

0000 


FEXT 


0265 

4464 


FIXPT 


0266 

3361 


DCA XTEMP 


0267 

7402 

GETY* 

7402 


0270 

1413 


TAD I 13 

/FETCH Y POINT 

0271 

7402 

REST * 

7402 


0272 

4463 


FLOAT 


0273 

4437 


JMS I 7 


0274 

3610 


FMPY I YFACTj? 


0275 

1604 


FAPO I YOFF 


0276 

4606 


FDIV I YPLTSC 


0277 

4355 


FDIV DACSCL 


0300 

0000 


FEXT 


0301 

4464 


FIXPT 


0302 

3362 


DCA YTEMP 


0303 

4342 


JMS PLOT 

/POSITION PEN 

030 4 

4336 


JMS WAIT 


0305 

7000 


NOP 


0306 

1363 


TAD PNLIFT 


0307 

6554 


DAL3 

/PEN DOWN. 

0310 

7300 


CLA CLL 

/TO- BE SURE PEN IS DOWN 

031 1 

4336 


JMS WAIT 

0312 

7000 


NOP 


0313 

1211 


TAD PENFLG 


0314 

7710 


SPA CLA 

/POINT PLOT? 

0315 

6554 


DAL3 

/YES. PEN UP 

0316 

2354 


ISZ CNTR 

/NO. LAST POINT? 

0317 

5247 


JMP RPEAT 

/NO. 

0320 

6554 


DAL3 

/YES. PEN UP 

0321 

4336 


JMS WAIT 

/RETURN PEN TO ZERO. 

0322 

1361 

RTNZRO* 

TAD XTEMP 

0323 

7110 


CLL RAR 

/DIVIDE BY TWO 

032 4 

3361 


DCA XTEMP 


0325 

1362 


TAD YTEMP 

/DIVIDE BY TWO 

0326 

7110 


CLL RAR 

0327 

3362 


DCA YTEMP 


0330 

4342 


JMS PLOT 


0331 

1361 


TAD XTEMP 


0332 

1362 


TAD YTEMP 


0333 

7640 


SZA CLA 

/BOTH AXES ZERO? 

0334 

5322 


JMP RTNZRO 

/NO. DO AGAIN 

0335 

5600 


JMP I XYPLOT 

/YES. RETURN 

0336 

0000 

WAIT* 

0 


0337 

2364 


ISZ WAIT1 


0340 

5337 


JMP .-1 


0341 

5736 


JMP I WAIT 


0342 

0000 

PLOT* 

0 


0343 

4336 


JMS WAIT 


0344 

1361 


TAD XTEMP 

/LOAD DAC CHCl) WITH X 

0345 

6551 


DALI 
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0346 

7200 


CLA 

0347 

1362 


TAD YTEMP 

0350 

6552 


DAL2 /LOAD DAC CH<2) WITH Y 

0351 

7200 


CLA 

0352 

4336 


JMS WAIT /SETTLE TIME 

0353 

5742 


JMP I PLOT 

0354 

0000 

CNTR, 

0 

0355 

7771 

DACSCL, 

7771 S 

0356 

2400 

2400 $ 


0357 

5002 

5002 

/10.0V/2047*1V/IN (DECIMAL) 

0360 

6201 

K6201 , 

6201 

0361 

0000 

XTEMP, 

0 

0362 

0000 

YTEMP * 

0 

0363 

0000 

PNLIFT , 

0 /ADJUST TO OPERATE PEN RELAY 

0364 

0000 

WAIT1, 

0 

0365 

0400 

GENXP, 

GENX 

0377 

2000 




♦PAGE /tricks assembler to print literals AND LINS 

/ 


/NEED BE LOADED ONLY TO GENERATE LOCAL XDATA 
/ 

♦GENX 


0400 

1632 

GENX, 

TAD 

I FLGP 

/USE AS FLAG: NON-ZRO FIRST PASS 

0401 

7650 


SNA 

CLA 

/FIRST 

PASS? 

0402 

5216 


JMP 

I NCR 

/NO. INCREMENT 

0403 

3633 


DCA 

I XTEMPP 

/YES. 

INITIALIZE 

0404 

3632 


DCA 

I FLGP 

/CLEAR 

FLAG 

0405 

3237 


DCA 

XVAR 



0406 

3240 


DCA 

XVAR+1 



0407 

3241 


DCA 

XVAR+2 



0410 

7001 


IAC 




041 1 

1012 


TAD 

12 

/POINT 

SPACING ADDRESS 

0412 

3230 


DCA 

PSPACE 



0413 

1634 


TAD 

I XPLTSP 



0414 

3231 


DCA 

XSCALE 



0415 

5636 


JMP 

I GETYP 



0416 

4407 

I NCR, 

JMS 

I 7 



0417 

5237 


FGET 

XVAR 



0420 

1630 


FADD 

I PSPACE 



0421 

6237 


FPUT 

XVAR 



0422 

4631 


FDIV 

I XSCALE 

/FETCHES XPLTSC 

0423 

4635 


FDIV 

I DACSCP 



0424 

0000 


FEXT 





0425 4464 FIXPT 

0426 3633 DCA I XTEMPP 

0427 5636 JMP I GETYP 


0430 

0000 

PSPACE, 0 




0431 

0000 

XSCALE, 0 




0432 

0215 

FLGP, DFYDTA 




0433 

0361 

XTEMPP, XTEMP 

/POINTER 

TO 

XTEMP 

0434 

0205 

XPLTSP, XPLTSC 

/POINTER 

TO 

XPLTSC 

0435 

0355 

DACSCP, DACSCL 

/POINTER 

TO 

DACSCL 

0436 

0267 

GETYP, GETY 

/POINTER 

TO 

RETURN 

0437 

0000 

XVAR, 0; 




0440 

0000 

0S 




0441 

0000 

0 
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CNTR 

0354 

DACSCL 

0355 

DACSCP 

0435 

DFX 

0253 

DFXDTA 

0213 

DFYDTA 

0215 

FETCHP 

0065 

FIX 

4464 

FLOP 

0432 

GENX 

0400 

GENXP 

0365 

GETY 

0267 

GETYP 

0436 

INCR 

0416 

K6201 

0360 

OMIT 

0226 

PENFLG 

0211 

PLOT 

0342 


PNLIFT 0363 
POINTS 0212 
PSPACE 0430 
REST 0271 
RPEAT 0247 
RSTRE 0255 
RTNZRO 0322 
WAIT 0336 
WAIT1 0364 
XDTABS 0214 
XFACTR 0207 
XOFF 0203 
XPLTSC 0205 
XPLTSP 0434 
XSCALE 0431 
XTEMP 0361 
XTEMPP 0433 
XV A R 0437 
XYPLOT 0200 
Y0TABS 0216 
YFACTR 0210 
YOFF 0204 
YPLTSC 0206 
YTEMP 0362 





/DEFINITIONS FOR ASSEMBLY OF XYPLOT 

XYPLOT=200 
GENX=400 
FIX=JMS I 64 
FLOAT=JMS I 63 
DALI=6551 
DAL2=6552 
DAL3=6554 
FETCHP=65 
/ 

PAUSE 
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♦FETCH 

/SUBROUTINE FETCH 
/ 

/FETCHES ARGUMENTS FOR 
/ 


SUBROUTINES 


/ 

/ 

/ 

200 

201 

202 

SUBR# 

0 

EFFECTIVE JMS FETCH 

NUMBER OF ARGUMENTS (OCTAL) 

/ 

203 

ARG1 » 

0 

/ 

204 

ARG2 # 

0 

/ 

/ 

/ 

• 

• 

20- 

• 

ETC.# 

ONE FOR EACH: ARGUMENT 

NEXT EXECUTABLE STATEMENT 


/FETCH UPDATES THE EXIT OF THE CALLING SUBROUTINE 
/PAGE ZERO LOCATIONS REQD: 


/ 

/ 

/ 

/ 

/ 

FETCH# 


NEXT i 


AUTOINDEX 16# 
65 


17 


0 

CLA CMA 
TAD FETCH 

CLA CLL CMA RAL /SET ACC TO MINUSJ'WO 
TAD FETCH 
DCA FETCH 


/POINTER TO STORE ARGUMENTS 

/SET ACC TO MINUS TWO 
/POINTER TO SOURCE ARG LI T ST 


I FETCH 
17 

I 16 


CMA 
TAD 
DCA 
TAD 
CIA 

DCA CNTR 
TAD I 17 
DCA I 16 
ISZ CNTR 
JMP NEXT 


/GET ARG SOURCE LIST ADDRESS 
/FETCH NO OF ARGUMENTS 


/FETCH THE ARGUMENT 
/STORE IT 


CNTR# 

*65 


CLA 

TAD 

DCA 

JMP 

0 


IAC 

17 

I FETCH 
I 16 


/UPDATE SUBROUTINE EXIT 
/RETURN TO SUBROUTINE 


FETCH 
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♦FIX 

/SUBROUTINES TO TRANSMIT DATA FROM FAC TO 
/FIX OR FLOAT THE RESULTING DATA. 

/ 


ACC AND BACK 


/FOR USE WITH FLOATING POINT PACKAGE III 

FIX, 0 

JMS I FIXPTR 
TAD 45 
JMP I FIX 
FIXPTR, 4757 
FLOA, 0 

DCA 45 

JMS I FLOPTR 
JMP I FLOA 
FLOPTR, 5563 
*63 


FLOA 

FIX 

PAUSE 
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